home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / a_sameri.bas < prev    next >
BASIC Source File  |  1993-11-30  |  13KB  |  321 lines
  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: A_SAMERI.BAS ::::::::::::::                   *
  4. 1030 ' *                                    Programmed By T.K.Mosaku    *
  5. 1040 ' *                                    ~~~~~~~~~~~~~~~~~~~~~~~~    *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 '** 画面表示 **
  9. 1080 MENU=1
  10. 1090 LOAD@"D_AMMAP.TIF", (0, 0)
  11. 1100 LOAD@"F_SWICH.TIF", (7, 7)
  12. 1110 LOAD@"F_SWICH3.TIF",(85,7)
  13. 1120 '
  14. 1130 '** MENU 画面 **
  15. 1140 *MENU_GAMEN
  16. 1150 CLS 4:SIR=0
  17. 1160 LINE (205,416)-(392,435),PSET,%2,BF,%13
  18. 1170 LOCATE 4, 21:COLOR 1:PRINT"世界の国名クイズ･････何問に挑戦しますか｡"
  19. 1180 LOCATE 25,22:COLOR 2:PRINT"　5問　10問　20問  30問　"
  20. 1190 LOCATE 48,23:COLOR 1:PRINT"左クリックして選んで下さい｡"
  21. 1200 '
  22. 1210 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  23. 1220 '
  24. 1230 '** MENU 選択 **
  25. 1240 X=MOUSE(4,0):Y=MOUSE(5,0)
  26. 1250   IF X>90  AND X<114 AND Y>27  AND Y<40  THEN SIR=1 :GOTO *SIRABERU
  27. 1260   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN        GOTO *MENU_1
  28. 1270   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN        GOTO *OWARI_E
  29. 1280   IF X>217 AND X<239 AND Y>420 AND Y<433 THEN PNO= 5:GOTO *MOZI
  30. 1290   IF X>258 AND X<287 AND Y>420 AND Y<433 THEN PNO=10:GOTO *MOZI
  31. 1300   IF X>305 AND X<336 AND Y>420 AND Y<433 THEN PNO=20:GOTO *MOZI
  32. 1310   IF X>353 AND X<383 AND Y>420 AND Y<433 THEN PNO=30:GOTO *MOZI
  33. 1320   IF X>401 AND X<432 AND Y>420 AND Y<433 THEN PNO=40:GOTO *MOZI
  34. 1330 GOTO 1240
  35. 1340 '
  36. 1350 '** 画面設定 **
  37. 1360 *MOZI
  38. 1370  QQN=0
  39. 1380  IF QQN=2 THEN GOTO 1630
  40. 1390  CLS 4
  41. 1400  LINE (205,416)-(442,435),PSET,%4,BF
  42. 1410 LOAD@ "E_GRAPH.TIF",(165,454)
  43. 1420 LOCATE 5, 21:COLOR 1:PRINT"問  題"
  44. 1430 LOCATE 25,22:COLOR 2:PRINT"                   "
  45. 1440 LOCATE 20,23:COLOR 1
  46. 1450 PRINT"今までの成績   正答数                   正答率         ％"
  47. 1460 IF QQN=1 THEN QQN=QQN+1:GOTO 1630
  48. 1470 '
  49. 1480 '** MAIN LOOTINE **
  50. 1490  CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
  51. 1500 '
  52. 1510 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1':MOUSE 4,8,8,611,364
  53. 1520 '
  54. 1530 RANDOMIZE TIME 
  55. 1540 NFW(0)=INT(RND*32)
  56. 1550 T=1
  57. 1560   IF CCN=PNO THEN GOTO 1710
  58. 1570   N=INT(RND*32)+1
  59. 1580   FOR J=0 TO T-1
  60. 1590     IF NFW(J)=N THEN GOTO 1570
  61. 1600   NEXT J
  62. 1610   NFW(T)=N:QQ=N
  63. 1620     MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  64. 1630     TTN=0
  65. 1640     IF QQ=<10           THEN Q=QQ   :GOTO *M0
  66. 1650     IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
  67. 1660     IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
  68. 1670     IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
  69. 1680 CCN=CCN+1:T=T+1:GOTO 1560
  70. 1690 T=T+1:GOTO 1560
  71. 1700 '
  72. 1710 IF KIRN=0 THEN 3520 ELSE 3280
  73. 1720 '
  74. 1730 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
  75. 1740 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A21
  76. 1750 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
  77. 1760 *M3:ON Q GOTO *A31,*A32,*A33
  78. 1770 '
  79. 1780 *A1 :A$="チリ"                  :XP=332:YP=291:GOTO *SENTAKU
  80. 1790 *A2 :A$="アルゼンチン"          :XP=365:YP=294:GOTO *SENTAKU
  81. 1800 *A3 :A$="ウルグァイ"            :XP=383:YP=295:GOTO *SENTAKU
  82. 1810 *A4 :A$="パラグァイ"            :XP=382:YP=253:GOTO *SENTAKU
  83. 1820 *A5 :A$="ブラジル"              :XP=417:YP=209:GOTO *SENTAKU
  84. 1830 *A6 :A$="ボリビア"              :XP=348:YP=229:GOTO *SENTAKU
  85. 1840 *A7 :A$="エクアドル"            :XP=302:YP=164:GOTO *SENTAKU
  86. 1850 *A8 :A$="コロンビア"            :XP=318:YP=144:GOTO *SENTAKU
  87. 1860 *A9 :A$="ベネズェラ"            :XP=350:YP=121:GOTO *SENTAKU
  88. 1870 *A10:A$="パナマ"                :XP=298:YP=131:GOTO *SENTAKU
  89. 1880 *A11:A$="コスタリカ"            :XP=284:YP=128:GOTO *SENTAKU
  90. 1890 *A12:A$="ニカラグア"            :XP=277:YP=120:GOTO *SENTAKU
  91. 1900 *A13:A$="ホンジュラス"          :XP=272:YP=107:GOTO *SENTAKU
  92. 1910 *A14:A$="エルサルバドル"        :XP=262:YP=145:GOTO *SENTAKU
  93. 1920 *A15:A$="ベリ－ズ"              :XP=292:YP=99 :GOTO *SENTAKU
  94. 1930 *A16:A$="グアテラマ"            :XP=257:YP=103:GOTO *SENTAKU
  95. 1940 *A17:A$="メキシコ"              :XP=228:YP=79 :GOTO *SENTAKU
  96. 1950 *A18:A$="キュ－バ"              :XP=288:YP=79 :GOTO *SENTAKU
  97. 1960 *A19:A$="ジャマイカ"            :XP=310:YP=118:GOTO *SENTAKU
  98. 1970 *A20:A$="バハマ"                :XP=334:YP=42 :GOTO *SENTAKU
  99. 1980 *A21:A$="ハイチ"                :XP=364:YP=44 :GOTO *SENTAKU
  100. 1990 *A22:A$="ドミニカ共和国"        :XP=330:YP=90 :GOTO *SENTAKU
  101. 2000 *A23:A$="ガイアナ"              :XP=379:YP=134:GOTO *SENTAKU
  102. 2010 *A24:A$="スリナム"              :XP=391:YP=136:GOTO *SENTAKU
  103. 2020 *A25:A$="ギアナ"                :XP=404:YP=138:GOTO *SENTAKU
  104. 2030 *A26:A$="トリニダ－ド・トバゴ"  :XP=567:YP=118:GOTO *SENTAKU
  105. 2040 *A27:A$="グレナダ"              :XP=566:YP=103:GOTO *SENTAKU
  106. 2050 *A28:A$="セントビンセント"      :XP=566:YP=88 :GOTO *SENTAKU
  107. 2060 *A29:A$="セントルシア"          :XP=561:YP=66 :GOTO *SENTAKU
  108. 2070 *A30:A$="バルバドス"            :XP=572:YP=74 :GOTO *SENTAKU
  109. 2080 *A31:A$="ドミニカ"              :XP=552:YP=56 :GOTO *SENTAKU
  110. 2090 *A32:A$="アンチグア・バ－ブ－ダ":XP=538:YP=46 :GOTO *SENTAKU
  111. 2100 *A33:A$="ｾﾝﾄｸﾘｽﾄﾌｧ-･ﾈｲﾋﾞｽ"      :XP=521:YP=42 :GOTO *SENTAKU
  112. 2110 '
  113. 2120 *SENTAKU
  114. 2130   IF TTN=0 THEN GOTO *WRITE 
  115. 2140   IF TTN=1 THEN GOTO *WRITE_NO 
  116. 2150   IF TTN=2 THEN GOTO *SIRABE_WRITE 
  117. 2160 '
  118. 2170 *WRITE
  119. 2180   LOCATE 14,21:COLOR 2:PRINT "                                    "
  120. 2190   LOCATE 14,21:COLOR 2:PRINT A$
  121. 2200   GOTO 2240
  122. 2210 '
  123. 2220 *POINT
  124. 2230 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,8,8,611,364:GOTO 2250
  125. 2240 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  126. 2250 B=1
  127. 2260 X=MOUSE(4,0):Y=MOUSE(5,0)
  128. 2270 IF X>90  AND X<114 AND Y>27  AND Y<40  THEN       GOTO *SIRABERU
  129. 2280 IF X>121 AND X<144 AND Y>27  AND Y<40  THEN BN=0 :GOTO *MODORU
  130. 2290 IF X>18  AND X<38  AND Y>18  AND Y<38  THEN       GOTO *MENU_E
  131. 2300 IF X>51  AND X<71  AND Y>18  AND Y<38  THEN       GOTO *OWARI_E
  132. 2310 IF X>330 AND X<335 AND Y>289 AND Y<294 THEN TT=1 :GOTO *BUNKI
  133. 2320 IF X>362 AND X<367 AND Y>292 AND Y<297 THEN TT=2 :GOTO *BUNKI
  134. 2330 IF X>381 AND X<386 AND Y>293 AND Y<298 THEN TT=3 :GOTO *BUNKI
  135. 2340 IF X>380 AND X<385 AND Y>251 AND Y<256 THEN TT=4 :GOTO *BUNKI
  136. 2350 IF X>415 AND X<420 AND Y>207 AND Y<212 THEN TT=5 :GOTO *BUNKI
  137. 2360 IF X>346 AND X<351 AND Y>227 AND Y<232 THEN TT=6 :GOTO *BUNKI
  138. 2370 IF X>300 AND X<305 AND Y>162 AND Y<167 THEN TT=7 :GOTO *BUNKI
  139. 2380 IF X>316 AND X<321 AND Y>142 AND Y<147 THEN TT=8 :GOTO *BUNKI
  140. 2390 IF X>348 AND X<353 AND Y>119 AND Y<126 THEN TT=9 :GOTO *BUNKI
  141. 2400 IF X>296 AND X<301 AND Y>129 AND Y<134 THEN TT=10:GOTO *BUNKI
  142. 2410 IF X>282 AND X<287 AND Y>126 AND Y<131 THEN TT=11:GOTO *BUNKI
  143. 2420 IF X>275 AND X<280 AND Y>118 AND Y<123 THEN TT=12:GOTO *BUNKI
  144. 2430 IF X>270 AND X<275 AND Y>105 AND Y<110 THEN TT=13:GOTO *BUNKI
  145. 2440 IF X>260 AND X<265 AND Y>143 AND Y<148 THEN TT=14:GOTO *BUNKI
  146. 2450 IF X>290 AND X<295 AND Y>97  AND Y<102 THEN TT=15:GOTO *BUNKI
  147. 2460 IF X>255 AND X<260 AND Y>101 AND Y<106 THEN TT=16:GOTO *BUNKI
  148. 2470 IF X>226 AND X<231 AND Y>77  AND Y<82  THEN TT=17:GOTO *BUNKI
  149. 2480 IF X>286 AND X<291 AND Y>77  AND Y<82  THEN TT=18:GOTO *BUNKI
  150. 2490 IF X>308 AND X<313 AND Y>116 AND Y<121 THEN TT=19:GOTO *BUNKI
  151. 2500 IF X>332 AND X<337 AND Y>40  AND Y<45  THEN TT=20:GOTO *BUNKI
  152. 2510 IF X>362 AND X<367 AND Y>42  AND Y<47  THEN TT=21:GOTO *BUNKI
  153. 2520 IF X>328 AND X<333 AND Y>68  AND Y<93  THEN TT=22:GOTO *BUNKI
  154. 2530 IF X>377 AND X<382 AND Y>132 AND Y<137 THEN TT=23:GOTO *BUNKI
  155. 2540 IF X>389 AND X<394 AND Y>134 AND Y<139 THEN TT=24:GOTO *BUNKI
  156. 2550 IF X>402 AND X<407 AND Y>136 AND Y<141 THEN TT=25:GOTO *BUNKI
  157. 2560 IF X>565 AND X<570 AND Y>116 AND Y<121 THEN TT=26:GOTO *BUNKI
  158. 2570 IF X>564 AND X<569 AND Y>101 AND Y<106 THEN TT=27:GOTO *BUNKI
  159. 2580 IF X>564 AND X<569 AND Y>86  AND Y<91  THEN TT=28:GOTO *BUNKI
  160. 2590 IF X>559 AND X<564 AND Y>64  AND Y<69  THEN TT=29:GOTO *BUNKI
  161. 2600 IF X>570 AND X<575 AND Y>72  AND Y<77  THEN TT=30:GOTO *BUNKI
  162. 2610 IF X>550 AND X<555 AND Y>54  AND Y<59  THEN TT=31:GOTO *BUNKI
  163. 2620 IF X>536 AND X<541 AND Y>44  AND Y<49  THEN TT=32:GOTO *BUNKI
  164. 2630 IF X>519 AND X<524 AND Y>40  AND Y<45  THEN TT=33:GOTO *BUNKI
  165. 2640 IF B=1 THEN 2650 ELSE 2260
  166. 2650 'MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  167. 2660 B=B+1
  168. 2670 GOTO 2260
  169. 2680 '
  170. 2690 '
  171. 2700 *BUNKI
  172. 2710   IF BN=0 THEN *QUIZ ELSE *SIRABE
  173. 2720 *QUIZ 
  174. 2730   IF QQ=TT THEN *YES ELSE *NO
  175. 2740 *SIRABE 
  176. 2750   TTN=2:GOTO *CHECK
  177. 2760 '
  178. 2770 *YES
  179. 2780  CY=CY+1
  180. 2790    LOCATE 15,22:COLOR 3: PRINT"★★★ 正解です｡ ★★★" 
  181. 2800    PCMPLAY YES_S%
  182. 2810  GOSUB *COUNT
  183. 2820  WAIT 100
  184. 2830  WAIT 100
  185. 2840    LOCATE 15,22:COLOR 1:PRINT"                         " 
  186. 2850  IF QQN=2 THEN GOTO 3460
  187. 2860  GOTO 1680
  188. 2870 '
  189. 2880 *NO
  190. 2890  CN=CN+1:TTN=1
  191. 2900    LOCATE 15,22:COLOR 3:PRINT"☆☆☆ 残念でした｡ ☆☆☆" 
  192. 2910    PCMPLAY NO_S%
  193. 2920  XPP=XP:YPP=YP
  194. 2930      *CHECK
  195. 2940       IF TT=<10           THEN Q=TT   :GOTO *M0
  196. 2950       IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
  197. 2960       IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
  198. 2970       IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
  199. 2980    *WRITE_NO
  200. 2990    LOCATE 10,22:COLOR 3
  201. 3000    PRINT"★★★ 残念でした｡ ★★★   そこは  『";A$;"』  です｡" 
  202. 3010  GOSUB *COUNT
  203. 3020  IF QQN=0 THEN GOSUB *KIROKU
  204. 3030  WAIT 70
  205. 3040    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  206. 3050  WAIT 250
  207. 3060    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  208. 3070    LOCATE 10,22:COLOR 1:PRINT SPACE$(70)
  209. 3080  IF QQN=2 THEN GOTO 3460
  210. 3090  GOTO 1680
  211. 3100 '
  212. 3110 *COUNT
  213. 3120  CT=CY+CN
  214. 3130  CC=INT((CY/CT)*100)
  215. 3140  CG=INT(CC*3):IF CG>297 THEN CG=297
  216. 3150    LOCATE 44,23:PRINT "             "
  217. 3160    LOCATE 70,23:PRINT "     "
  218. 3170    LOCATE 44,23:COLOR 3:PRINT "(";CY;"/";CT;")  "
  219. 3180    LOCATE 70,23:COLOR 3:PRINT CC
  220. 3190    LINE (280,   457)-(578,   461),PSET,%4,BF
  221. 3200    LINE (280,   457)-(281+CG,461),PSET,%3,BF
  222. 3210    LINE (280+CG,457)-(578,   461),PSET,%4,BF
  223. 3220  RETURN
  224. 3230 '
  225. 3240 *KIROKU
  226. 3250  KIR(KIRN)=QQ:KIRN=KIRN+1
  227. 3260  RETURN
  228. 3270 '
  229. 3280 '** 確認 選択 **
  230. 3290 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(165,454)
  231. 3300   LOCATE 10,21 :COLOR 2:PRINT"間違いを確かめますか?"
  232. 3310   LOCATE 20,22 :COLOR 1:PRINT"     確かめます｡"
  233. 3320 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  234. 3330   LOCATE 20,23 :COLOR 1:PRINT"     確かめません｡"
  235. 3340 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  236. 3350 X=MOUSE(4,0):Y=MOUSE(5,0)
  237. 3360   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN GOTO *MENU_E
  238. 3370   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN GOTO *OWARI_E
  239. 3380   IF X>199 AND X<268 AND Y>418 AND Y<432 THEN GOTO 3420
  240. 3390   IF X>199 AND X<288 AND Y>438 AND Y<453 THEN GOTO 3530
  241. 3400 GOTO 3350
  242. 3410 '
  243. 3420 '** 確認 ROOTINE ** 
  244. 3430   PNO=KIRN-1:QQN=1:CY=0:CN=0 
  245. 3440   FOR J=0 TO PNO
  246. 3450     QQ=KIR(J):GOTO 1380
  247. 3460   NEXT J
  248. 3470  MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(165,454) 
  249. 3480  LOCATE 10,21 :COLOR 2:PRINT"もう一度､間違いを確かめますか?"
  250. 3490  GOTO 3310
  251. 3500 '
  252. 3510 '** END 選択 **
  253. 3520 LOAD@ "E_CLEAR.TIF",(165,454) 
  254. 3530 CLS 4:ERASE KIR:ERASE NFW
  255. 3540   LOCATE 10,21 :COLOR 2:PRINT"続けますか?"
  256. 3550   LOCATE 20,22 :COLOR 1:PRINT"     続けます｡"
  257. 3560   LOCATE 20,23 :COLOR 1:PRINT"     終わります｡"
  258. 3570 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  259. 3580 X=MOUSE(4,0):Y=MOUSE(5,0)
  260. 3590   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN GOTO *MENU_E
  261. 3600   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN GOTO *OWARI_E
  262. 3610   IF X>199 AND X<268 AND Y>418 AND Y<432 THEN GOTO 1120
  263. 3620   IF X>199 AND X<288 AND Y>438 AND Y<453 THEN GOTO 3650
  264. 3630 GOTO 3580
  265. 3640 '
  266. 3650 IF MENU=1 THEN 3670 ELSE 3860
  267. 3660 '
  268. 3670 CLS 4 
  269. 3680   LOCATE 10,21 :COLOR 2:PRINT"メニュ－に戻りますか?"
  270. 3690   LOCATE 20,22 :COLOR 1:PRINT"     メニュ－に戻ります｡"
  271. 3700   LOCATE 20,23 :COLOR 1:PRINT"     メニュ－に戻らず終わります｡"
  272. 3710 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  273. 3720 X=MOUSE(4,0):Y=MOUSE(5,0)
  274. 3730   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN GOTO *MENU_E
  275. 3740   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN GOTO *OWARI_E
  276. 3750   IF Y>418 AND Y<432 THEN GOTO 3820
  277. 3760   IF Y>438 AND Y<453 THEN GOTO 3860
  278. 3770 GOTO 3720
  279. 3780 '
  280. 3790 *MENU_E
  281. 3800 ERASE KIR:ERASE NFW
  282. 3810 *MENU_1
  283. 3820 CHAIN "B_MENU2.BAS",,ALL
  284. 3830 RUN "B_MENU2.BAS"
  285. 3840 '
  286. 3850 *OWARI_E
  287. 3860 CHAIN "B_END.BAS",,ALL
  288. 3870 RUN "B_END.BAS"
  289. 3880 '
  290. 3890 *SIRABERU
  291. 3900   IF SIR=1 THEN GOTO 3940
  292. 3910   LOCATE 14,21:PRINT "                                    "
  293. 3920   LOCATE 14,21:COLOR 3:PRINT "クイズ中断中, 調べモードです｡"
  294. 3930   GOTO 3970
  295. 3940   LINE(199,415)-(437,437),PSET,%4,BF:LOCATE 24,23:PRINT SPACE$(55)
  296. 3950   LOCATE 24,21:PRINT "                                    "
  297. 3960   LOCATE 24,21:COLOR 3:PRINT "クイズ中断中, 調べモードです｡"
  298. 3970   LOCATE 24,22:PRINT SPACE$(50)
  299. 3980   BN=1:GOTO *POINT
  300. 3990 '
  301. 4000 *SIRABE_WRITE
  302. 4010  LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
  303. 4020  FOR T=5 TO 2 STEP -1 
  304. 4030    LOCATE 15,22:COLOR T:PRINT"そこは 『";A$;"』  です｡" 
  305. 4040    WAIT 25
  306. 4050  NEXT
  307. 4060  WAIT 50:GOTO *POINT
  308. 4070 '
  309. 4080 *MODORU
  310. 4090  IF SIR=1 THEN GOTO *MENU_GAMEN'
  311. 4100  LOCATE 24,21:PRINT "                                    "
  312. 4110  LOCATE 15,22:PRINT SPACE$(50)
  313. 4120  GOTO 1690
  314. 4130 '
  315. 4140 *MOUS
  316. 4150  MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  317. 4160  X=MOUSE(4,0):Y=MOUSE(5,0)
  318. 4170  LOCATE 55,22:PRINT X;Y
  319. 4180  GOTO 4160
  320. 4190 '
  321.